Исходный текст

Option Explicit
Call GetObject

'==============================================================================
' Найти объект по имени главного файла
'==============================================================================
Sub GetObject()
    Dim fileDlg, obj, flnm, RetVal

    ' Показываем диалог открытия файла
    Set fileDlg = ThisApplication.Dialogs.FileDlg
    RetVal = fileDlg.Show
    If Not RetVal Then Exit Sub

    ' Получаем имя и путь к временной папке для хранения файлов
    flnm = fileDlg.FileName

    If flnm <> "" Then
        Set obj = ThisApplication.Utility.GetObjectByFile(flnm)
        If obj Is Not Nothing Then MsgBox obj.Description
    End If
End Sub
'==============================================================================